home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / mobile / fma-2.0-stable-setup.exe / {app} / source / MobileAgent.dpr < prev    next >
Encoding:
Text File  |  2004-10-15  |  4.1 KB  |  100 lines
  1. program MobileAgent;
  2.  
  3. uses
  4.   Windows,
  5.   Forms,
  6.   Unit1 in 'Unit1.pas' {Form1},
  7.   gsm_sms in 'gsm_sms.pas',
  8.   uDebug in 'uDebug.pas' {frmDebug},
  9.   uComposeSMS in 'uComposeSMS.pas' {frmMessageContact},
  10.   uCalling in 'uCalling.pas' {frmCalling},
  11.   uAbout in 'uAbout.pas' {frmAbout},
  12.   uOptions in 'uOptions.pas' {frmOptions},
  13.   uNewMessage in 'uNewMessage.pas' {frmNewMessage},
  14.   MobileAgent_TLB in 'MobileAgent_TLB.pas',
  15.   uMobileAgentUI in 'uMobileAgentUI.pas' {MobileAgent: CoClass},
  16.   uSMSDetail in 'uSMSDetail.pas' {frmDetail},
  17.   uObex in 'uObex.pas',
  18.   uPostNote in 'uPostNote.pas' {frmNote},
  19.   uAccessoriesMenu in 'uAccessoriesMenu.pas' {AccessoriesMenu: CoClass},
  20.   uSIMEdit in 'uSIMEdit.pas' {frmSIMEdit: TFrame},
  21.   uMsgView in 'uMsgView.pas' {frmMsgView: TFrame},
  22.   uGlobal in 'uGlobal.pas',
  23.   uInfoView in 'uInfoView.pas' {frmInfoView: TFrame},
  24.   uEditContact in 'uEditContact.pas' {frmEditContact},
  25.   uVCard in 'uVCard.pas',
  26.   uSyncPhonebook in 'uSyncPhonebook.pas' {frmSync: TFrame},
  27.   uPromptConflict in 'uPromptConflict.pas' {frmPromptConflict},
  28.   uMissedCalls in 'uMissedCalls.pas' {frmMissedCalls},
  29.   uKeyPad in 'uKeyPad.pas' {frmKeyPad},
  30.   uPostURL in 'uPostURL.pas' {frmBookmark},
  31.   uConnProgress in 'uConnProgress.pas' {frmConnect},
  32.   uSelectContact in 'uSelectContact.pas' {frmSelContact},
  33.   uEditProfile in 'uEditProfile.pas' {frmEditProfile},
  34.   uExploreView in 'uExploreView.pas' {frmExplore: TFrame},
  35.   WebUpdateWizard in 'components\WebUpdateWizard.pas' {frmWebUpdate},
  36.   uFolderProps in 'uFolderProps.pas' {frmFolderProps},
  37.   uVersion in 'uVersion.pas',
  38.   uStatusDlg in 'uStatusDlg.pas' {frmStatusDlg},
  39.   uWaitComplete in 'uWaitComplete.pas',
  40.   uolSelectPatchPath in 'components\uolSelectPatchPath.pas',
  41.   uAddToGroup in 'uAddToGroup.pas' {frmAddToGroup},
  42.   uOfflineProfile in 'uOfflineProfile.pas' {frmOfflineProfile},
  43.   uScriptEditor in 'uScriptEditor.pas' {frmEditor: TFrame},
  44.   uOrganizeFavs in 'uOrganizeFavs.pas' {frmOrganizeFavs},
  45.   uActivityLog in 'uActivityLog.pas' {frmActivityLog},
  46.   uXMLContactSync in 'uXMLContactSync.pas',
  47.   uContactSync in 'uContactSync.pas',
  48.   uFMASync in 'uFMASync.pas',
  49.   uOutlookSync in 'uOutlookSync.pas',
  50.   CRC32 in 'components\CRC32.pas',
  51.   uChooseLink in 'uChooseLink.pas' {frmChooseLink},
  52.   uSyncLog in 'uSyncLog.pas' {frmSyncLog},
  53.   uChatSMS in 'uChatSMS.pas' {frmCharMessage},
  54.   uCrash in 'uCrash.pas' {ExceptionDialog},
  55.   uGetContact in 'uGetContact.pas' {frmGetContact},
  56.   uCallContact in 'uCallContact.pas' {frmCallContact},
  57.   uAddToPhonebook in 'uAddToPhonebook.pas' {frmAddContact},
  58.   uXML in 'components\uXML.pas',
  59.   uInputQuery in 'uInputQuery.pas' {frmInputQuery};
  60.  
  61. {$R *.TLB}
  62.  
  63. {$R *.res}
  64.  
  65. begin
  66.   Application.Initialize;
  67.   Application.Title := 'floAt''s Mobile Agent';
  68.   Application.CreateForm(TForm1, Form1);
  69.   Application.CreateForm(TfrmMessageContact, frmMessageContact);
  70.   Application.CreateForm(TfrmCalling, frmCalling);
  71.   Application.CreateForm(TfrmNote, frmNote);
  72.   Application.CreateForm(TfrmEditProfile, frmEditProfile);
  73.   Application.CreateForm(TfrmPromptConflict, frmPromptConflict);
  74.   Application.CreateForm(TfrmMissedCalls, frmMissedCalls);
  75.   Application.CreateForm(TfrmKeyPad, frmKeyPad);
  76.   Application.CreateForm(TfrmBookmark, frmBookmark);
  77.   Application.CreateForm(TfrmActivityLog, frmActivityLog);
  78.   Application.CreateForm(TfrmSyncLog, frmSyncLog);
  79.   Application.CreateForm(TfrmCallContact, frmCallContact);
  80.   with Form1 do { use 'with' to trick delphi ide }
  81.   try
  82.     { Load stored values }
  83.     FormStorage1.RestoreFormPlacement;
  84.     { Sould we minimize application? }
  85.     if FormStorage1.StoredValue['StartMinimized'] = True then begin
  86.       { Do not flash main form }
  87.       Application.ShowMainForm := False;
  88.       { Minimize to tray area }
  89.       SetWindowPos(Application.Handle, HWND_BOTTOM, 0,0,0,0,
  90.         SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_HIDEWINDOW);
  91.       Application.Minimize;
  92.     end;
  93.   finally
  94.     ShowWindow(Application.Handle,SW_HIDE);
  95.     { Do whatever is required on startup }
  96.     StartupInitialize;
  97.   end;
  98.   Application.Run;
  99. end.
  100.